www.gusucode.com > BCB 写的一款可自定义风格的俄罗斯方块源码 > BCB 写的一款可自定义风格的俄罗斯方块源码/code/俄罗斯方块/Tetris.cpp
//Download by http://www.NewXing.com //--------------------------------------------------------------------------- #include <vcl.h> #include "Unit4.h" #pragma hdrstop USERES("Tetris.res"); USEFORM("Unit1.cpp", TetrisForm); USEFORM("Unit2.cpp", AboutBox); USEFORM("Unit3.cpp", ScoreForm); USEFORM("Unit4.cpp", SplashForm); //--------------------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); TSplashForm *Splash = new TSplashForm(Application); Splash->FormStyle=fsStayOnTop; Splash->BorderStyle=bsNone; Splash->Position=poScreenCenter; Splash->Show(); Application->HelpFile = "Tetri.hlp"; Application->Title = "俄罗斯方块"; Application->CreateForm(__classid(TTetrisForm), &TetrisForm); Application->CreateForm(__classid(TAboutBox), &AboutBox); Application->CreateForm(__classid(TScoreForm), &ScoreForm); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //---------------------------------------------------------------------------